home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 4 / PC World Interactive 4.iso / share / internet / LSMIRC61.EXE / raw.in_ / raw.in
INI File  |  1997-09-21  |  24KB  |  568 lines
  1. [script]
  2. n0=;  This section handles all raw codes from there server
  3. n1=;
  4. n2=alias censoredchan {
  5. n3=  ; given channel name $1 and list of channels $2-, determine if there is any
  6. n4=  ; channels that are unwanted
  7. n5=  %n = 0
  8. n6=  :nx
  9. n7=  inc %n
  10. n8=  if %cenchan [ $+ [ [ $1 ] [ $+ [ %n ] ] ] ] != $null {
  11. n9=    if (%cenchan [ $+ [ [ $1 ] [ $+ [ %n ] ] ] ] isin $strip($2-)) return %cenchan [ $+ [ [ $1 ] [ $+ [ %n ] ] ] ]
  12. n10=    goto nx
  13. n11=  }
  14. n12=  return $null
  15. n13=}
  16. n14=alias checkchans {
  17. n15=  ; Given nick $1 and channel list $2-, determine if the person is in violation of
  18. n16=  ; the channel name censor
  19. n17=  %c = 0
  20. n18=  :nx
  21. n19=  inc %c
  22. n20=  if $chan(%c) != $null {
  23. n21=    if (($isop($1,$chan(%c))) || ($1 !ison $chan(%c))) goto nx
  24. n22=    if ($me isop $chan(%c)) {
  25. n23=      if (%haveoptions [ $+ [ $chan(%c) ] ] ) set %namecheck $chan(%c)
  26. n24=      else set %namecheck other
  27. n25=      if (%namecensor [ $+ [ %namecheck ] ] ) {
  28. n26=        set %badchannel $censoredchan(%namecheck,$2-)
  29. n27=        if %badchannel != $null {
  30. n28=          if (%namecensorban [ $+ [ %namecheck ] ] ) { mode $chan(%c) +b-o $a3($1) $1 | rtb $a3($1) $chan(%c) }
  31. n29=          kick $chan(%c) $1 Unwanted: members of channels with " $+ %badchannel $+ " in the name
  32. n30=        }
  33. n31=      }
  34. n32=    }
  35. n33=    goto nx
  36. n34=  }
  37. n35=}
  38. n36=#invitenames off
  39. n37=raw 353:*:{
  40. n38=  ; mass invite a channel you're not even on
  41. n39=  set %l 3
  42. n40=  :nx
  43. n41=  inc %l | set %name [ $+ [ %l ] ]
  44. n42=  if %name = $null halt
  45. n43=  invite %name %chan | goto nx
  46. n44=  halt
  47. n45=}
  48. n46=raw 366:*:.disable #invitenames | altech -a %dis10 $+ Mass Invite complete | halt
  49. n47=#invitenames end
  50. n48=#gma off
  51. n49=raw 302:*:{
  52. n50=  if $2 = $null { set %me $me | userhost $me }
  53. n51=  else { set %myadr $replace( [ $replace($2,=,!) ] ,+,*) | .disable #gma }
  54. n52=  halt
  55. n53=}
  56. n54=#gma end
  57. n55=#allwho off
  58. n56=; do a /who, then a /whois on every match found (this is called from /swho,
  59. n57=; like /swho *.netcom.com  (although I wouldn't do that one!)
  60. n58=raw 352:*:whois $6 | inc %fwht | halt
  61. n59=raw 315:*:{
  62. n60=  .disable #allwho | .enable #nw
  63. n61=  if %fwht = 0 altech -s %dis10 $+ No matches found for %fwho
  64. n62=  elseif %ftht = 1 altech -s %dis10 $+ Found 1 match for %fwho
  65. n63=  else altech -s %dis10 $+ Found %fwht match(es) for %fwho
  66. n64=  halt
  67. n65=}
  68. n66=#allwho end
  69. n67=#autoicmp off
  70. n68=raw 302:*:{
  71. n69=  .disable #autoicmp
  72. n70=  set %adr $replace($2,=,!) | set %adr $replace(%adr,+,*)
  73. n71=  set %pos $calc($pos(%adr,!) -1 )
  74. n72=  set %icmpnick $left(%adr,%pos)
  75. n73=  if $mask(%adr,3) iswm %myadr echo 3 -a %icmpnick is $mask(%adr,3) $+ ... your clone!
  76. n74=  elseif $mask(%adr,2) iswm %myadr echo 3 -a %icmpnick is $mask(%adr,2) $+ ... your clone!
  77. n75=  else {
  78. n76=    echo 3 -a %icmpnick is $mask(%adr,3)
  79. n77=    echo 4 -a Press F7 to ICMP %icmpnick | .timer 1 60 unset %icmpnick
  80. n78=  }
  81. n79=  halt
  82. n80=}
  83. n81=#autoicmp end
  84. n82=#verifylamer off
  85. n83=; verify that a nick is on IRC before sending a mock
  86. n84=raw 302:*:{
  87. n85=  .disable #verifylamer
  88. n86=  if $2 = $null {
  89. n87=    raw -q notice %tvmocker [ $+ [ %mockee ] ] : $+ %mockee is not on IRC you lamer!!!
  90. n88=    altech #MockLamer %dis10 $+ %mockee is not on IRC, request ignored
  91. n89=    dh
  92. n90=  }
  93. n91=  set %mockee $left($2,$calc($pos($2,=) - 1))
  94. n92=  set %mocker %tvmocker [ $+ [ %mockee ] ]
  95. n93=  set %insult $rinsult
  96. n94=  raw -q notice %mockee :4 $+ %mockee $+ , you are a %insult 5(You were mocked at the request of %mocker $+ )
  97. n95=  altech #MockLamer %dis10 $+ Mock Lamer: told %mockee he was a %insult
  98. n96=  halt
  99. n97=}
  100. n98=#verifylamer end
  101. n99=#verifylamer2 off
  102. n100=; verify that a nick is on IRC before I send a mock so I don't look like an ass
  103. n101=; by doing requests for nicks that don't exist
  104. n102=raw 302:*:{
  105. n103=  .disable #verifylamer2
  106. n104=  if $2 = $null { altech -a %dis10 $+ %mockee is not on IRC, not sending mock lamer request | halt }
  107. n105=  msg #MockLamer |mocklamer $left($2,$calc($pos($2,=) - 1))
  108. n106=  halt
  109. n107=}
  110. n108=#verifylamer2 end
  111. n109=#altadd off
  112. n110=; attempt to add someone who is not in my ial to my userlist
  113. n111=raw 302:*:{
  114. n112=  .disable #altadd
  115. n113=  if $2 = $null { altech -a %dis7 $+ %addnick is not on IRC, cannot add | dh }
  116. n114=  else dde control $ddename adduser %addnick $convert($replace( [ $replace($2,=,!) ] ,+,*))
  117. n115=  halt
  118. n116=}
  119. n117=#altadd end
  120. n118=#revenge off
  121. n119=raw 302:*:{
  122. n120=  .disable #revenge
  123. n121=  if $2 = $null { altech 4 -a %tvicmpnick is not on IRC!! | dh }
  124. n122=  else {
  125. n123=    set %addy $mask($replace( [ $replace($2,=,!) ] ,+,*),2)
  126. n124=    set %len $calc($len(%addy) - 4)
  127. n125=    if ($isnumericip($right(%addy,%len))) runicmp $right(%addy,%len)
  128. n126=    else { .disable #regdns | .enable #revengedns | .dns %tvicmpnick }
  129. n127=  }
  130. n128=  halt
  131. n129=}
  132. n130=#revenge end
  133. n131=#altfsb off
  134. n132=; attempt to add someone who is not in my ial to my fileserver ban list
  135. n133=raw 302:*:{
  136. n134=  .disable #altfsb
  137. n135=  if $2 = $null { altech -a %dis7 $+ %addfsb is not on IRC, cannot add | dh }
  138. n136=  else addfsb $convert($replace( [ $replace($2,=,!) ] ,+,*)) %fsbreason
  139. n137=  halt
  140. n138=}
  141. n139=#altfsb end
  142. n140=#altban off
  143. n141=; attempt to add someone who is on in my ial to my ban list
  144. n142=raw 302:*:{
  145. n143=  .disable #altban
  146. n144=  if $2 = $null { altech -a %dis7 $+ %addnick is not on IRC, cannot add ban | dh }
  147. n145=  else {
  148. n146=    set %addy $replace( [ $replace($2,=,!) ] ,+,*)
  149. n147=    if %banchan != $null {
  150. n148=      kickbanall $mask(%addy,3) %banchan %default | rtb $mask(%addy,3) %banchan
  151. n149=      dde control $ddename $+ addban mask $mask(%addy,3) $+ > $+ $mask(%addy,4) $+ > $+ %banchan
  152. n150=    }
  153. n151=    else dde control $ddename $+ addban mask $mask(%addy,3) $+ > $+ $mask(%addy,4) $+ >
  154. n152=  }
  155. n153=  halt
  156. n154=}
  157. n155=#altban end
  158. n156=#altignore off
  159. n157=; attempt to add someone who is on in my ial to my ignore list
  160. n158=raw 302:*:{
  161. n159=  .disable #altignore
  162. n160=  if $2 = $null { altech -a %dis7 $+ %addnick is not on IRC, cannot add ignore | dh }
  163. n161=  else {
  164. n162=    set %addy $replace( [ $replace($2,=,!) ] ,+,*)
  165. n163=    dde control $ddename $+ ignore ignore %addnick $mask(%addy,3) $mask(%addy,4)
  166. n164=  }
  167. n165=  halt
  168. n166=}
  169. n167=#altignore end
  170. n168=#altrem off
  171. n169=; attempt to remove someone (who is not in my ial) from my userlist
  172. n170=raw 302:*:{
  173. n171=  .disable #altrem
  174. n172=  if $2 = $null {
  175. n173=    ; the person is not on IRC, but if this nick is known, I can still remove him
  176. n174=    altech -a %dis7 $+ %remnick is not on IRC | altech -a %dis6 $+ Attempting yet another method!!...
  177. n175=    set %adr $readini $ul address [ [ %remnick ] $+ 1 ]
  178. n176=    if %adr = $null altech -a %dis7 $+ Nope, can't find %remnick in your user list, can't remove (You can remove with the "User List Maintenance Utility")
  179. n177=    else ru %remnick %adr
  180. n178=  }
  181. n179=  else ru %remnick $replace( [ $replace($2,=,!) ] ,+,*)
  182. n180=  halt
  183. n181=}
  184. n182=#altrem end
  185. n183=#stats off
  186. n184=; compile channel/IRC info and report it to the channel/IRC info program
  187. n185=raw 352:*: {
  188. n186=  inc %info.0 | set %adr *!* $+ $3 $+ @ $+ $4
  189. n187=  if + isin $7 inc %info.2 | if G isin $7 inc %info.3
  190. n188=  if * isin $7 inc %info.4 | if @ isin $7 inc %info.1
  191. n189=  set %lv $al(%adr) | if %lv = 1 halt
  192. n190=  if %lv = 20 inc %info.6
  193. n191=  elseif %lv = 40 { inc %info.7 | if @ !isin $7 inc %info.11 }
  194. n192=  elseif %lv = 50 { inc %info.8 | if @ !isin $7 inc %info.11 }
  195. n193=  elseif %lv = 60 { inc %info.9 | if @ !isin $7 inc %info.11 }
  196. n194=  elseif %lv = 70 inc %info.10
  197. n195=  halt
  198. n196=}
  199. n197=raw 367:*:inc %info.5 | halt
  200. n198=raw 368:*:dde chaninfo $ddename $+ info txtInfo(5) %info.5 | halt
  201. n199=raw 251:*:dde chaninfo $ddename $+ info txtIRC(0) $2- | halt
  202. n200=raw 252:*:dde chaninfo $ddename $+ info txtIRC(1) $2- | halt
  203. n201=raw 254:*:{
  204. n202=  dde chaninfo $ddename $+ info txtIRC(2) $2-
  205. n203=  set %got254 $true
  206. n204=  if ((%got266) && (%got315)) .disable #stats
  207. n205=  halt
  208. n206=}
  209. n207=raw 250:*:halt
  210. n208=raw 255:*:halt
  211. n209=raw 265:*:dde chaninfo $ddename $+ info txtIRC(3) $5 (max: $7 $+ ) | halt
  212. n210=raw 266:*:{
  213. n211=  dde chaninfo $ddename $+ info txtIRC(4) $5 (max: $7 $+ )
  214. n212=  if ((%got254) && (%got315)) .disable #stats
  215. n213=  set %got266 $true
  216. n214=  halt
  217. n215=}
  218. n216=raw 315:*:{
  219. n217=  if ((%got266) && (%got254)) .disable #stats
  220. n218=  set %got315 $true
  221. n219=  set %info.12 $chan($2).mode
  222. n220=  if %info.12 = $null set %info.12 no modes set
  223. n221=  %k = -1 | dec %info.10 | if %info.10 < 0 set %info.10 0
  224. n222=  :nx
  225. n223=  inc %k | if %info. [ $+ [ %k ] ] = $null set %info. [ $+ [ %k ] ] 0
  226. n224=  if %k < 11 goto nx
  227. n225=  %temp = ""
  228. n226=  %k = -1
  229. n227=  :nw
  230. n228=  inc %k | set %temp %temp $+ %info. [ $+ [ %k ] ] @
  231. n229=  if %k < 12 goto nw
  232. n230=  dde chaninfo $ddename $+ info chandata %temp
  233. n231=  unset %info.* | halt
  234. n232=}
  235. n233=#stats end
  236. n234=#filterops off
  237. n235=raw 352:*:set %tvfolast $6 | whois $6 | halt
  238. n236=raw 315:*:set %tvfolastnick %tvfolast | halt
  239. n237=raw 301:*:halt
  240. n238=raw 311:*:halt
  241. n239=raw 312:*:halt
  242. n240=raw 313:*:{
  243. n241=  if $gl($2) > 18 { inc %tvforec | halt }
  244. n242=  inc %tvfocount
  245. n243=  if (%tvfoban) { mode %tvfochan -o+b $2 $a3($2) | rtb $a3($2) %tvfochan }
  246. n244=  kick %tvfochan $2 %ircopkick
  247. n245=  halt
  248. n246=}
  249. n247=raw 317:*:halt
  250. n248=raw 319:*:halt
  251. n249=raw 318:*:{
  252. n250=  if $2 = %tvfolastnick {
  253. n251=    .disable #filterops
  254. n252=    if ((%tvfocount = 0) && (%tvforec != 0)) altech %tvfochan %dis10 $+ Did not find any IRC ops on %tvfochan that are not in your userlist!
  255. n253=    elseif %tvfocount = 0 altech %tvfochan %dis10 $+ Did not find any IRC ops on %tvfochan
  256. n254=    elseif %tvfocount = 1 altech %tvfochan %dis10 $+ IRC Op filter scan complete, kicked 1 person
  257. n255=    else altech %tvfochan %dis10 $+ IRC Op filter scan complete, kicked %tvfocount people
  258. n256=    unset %tvfo*
  259. n257=  }
  260. n258=  halt
  261. n259=}
  262. n260=#filterops end
  263. n261=#nw on
  264. n262=raw 329:*:halt
  265. n263=raw 352:*:{
  266. n264=  altech -s %dis0 $+ $6 %dis2 $+ ( $+ $3 $+ @ $+ $4 $+ )
  267. n265=  if ($6 = %botnick [ $+ [ $2 ] ] ) {
  268. n266=    set %tvfb [ $+ [ $2 ] ] $true
  269. n267=    set %ady *!* $+ $3 $+ @ $+ $4
  270. n268=    if ($al(%ady) >= 60) {
  271. n269=      if $6 isop $2 {
  272. n270=        raw -q PRIVMSG %botnick [ $+ [ $2 ] ] :op %botpass [ $+ [ $2 ] ]
  273. n271=        altech -a %dis10 $+ Requesting ops from $6
  274. n272=      }
  275. n273=      else altech -a %dis10 $+ I'm supposed to /msg $6 for ops, be $6 is not a channel op right now
  276. n274=    }
  277. n275=    else altech -a %dis10 $+ I'm supposed to /msg $6 for ops.  I see it, but I don't know the address $mask(%ady,3)
  278. n276=  }
  279. n277=  halt
  280. n278=}
  281. n279=raw 315:*:{
  282. n280=  if (%tvfb [ $+ [ $2 ] ] != $true) && (%botnick [ $+ [ $2 ] ] != $null) {
  283. n281=    altech -a %dis10 $+ I'm supposed to /msg %botnick [ $+ [ $2 ] ] for ops, but its not here
  284. n282=  }
  285. n283=  if (($left($2,1) = $chr(35)) || ($left($2,1) = 38)) set %updatedial [ $+ [ $2 ] ] $true
  286. n284=  halt
  287. n285=}
  288. n286=#nw end
  289. n287=#detmul on
  290. n288=raw 352:*:{
  291. n289=  altech -s %dis0 $+ $6 %dis2 $+ ( $+ $3 $+ @ $+ $4 $+ )
  292. n290=  inc %conn [ $+ [ $4 ] ]
  293. n291=  if ((%conn [ $+ [ $4 ] ] > %excclientsis) && (%nk [ $+ [ $4 ] ] != $null)) {
  294. n292=    kball *!*@ $+ $4 %excclientsmsg
  295. n293=    altech -a %dis3 $+ Excessive Connections Detected! %dis4 Kicking %nk [ $+ [ $4 ] ]
  296. n294=    if (%sexc = ding) ding
  297. n295=    elseif (%sexc = speak) speak excessive connections detected, kicking %nk [ $+ [ $4 ] ]
  298. n296=    elseif (%sexc != none) splay %sexc
  299. n297=  }
  300. n298=  unset %nk [ $+ [ $4 ] ] | unset %conn [ $+ [ $4 ] ]
  301. n299=  halt
  302. n300=}
  303. n301=raw 315:*:halt
  304. n302=#detmul end
  305. n303=#nukeinfoserver off
  306. n304=raw 301:*:halt
  307. n305=raw 311:*:halt
  308. n306=raw 312:*:{
  309. n307=  altech -a %dis1 $+ Server: $+ %dis42 $3
  310. n308=  if $3 = $server { altech -a %dis1 $+ You are on $3 $+ !  Listing ports... | getports }
  311. n309=  else {
  312. n310=    altech -a %dis1 $+ *** You are not on $3
  313. n311=    altech -a %dis1 $+ *** Press Shift-F2 to try a "/stats l" anyway
  314. n312=    set %tvgetports $3
  315. n313=  }
  316. n314=  halt
  317. n315=}
  318. n316=raw 313:*:halt
  319. n317=raw 317:*:halt
  320. n318=raw 319:*:halt
  321. n319=raw 318:*:.disable #nukeinfoserver | halt
  322. n320=#nukeinfoserver end
  323. n321=#aww off
  324. n322=raw 301:*:altech -a %dis0 $+ *** Away: $+ %dis2 $3- | halt
  325. n323=raw 311:*:{
  326. n324=  ; go ahead ink...  change the displays :P
  327. n325=  altech -a %dis0 $+ *** Whois Information for: %dis2 $+ $2
  328. n326=  set %ady $3 $+ @ $+ $4 | set %lev $level($m( [ *!*@ $+ [ %ady ] ] ))
  329. n327=  altech -a %dis0 $+ *** Address: %dis2 $+ %ady
  330. n328=  altech -a %dis0 $+ ***áReal Name: %dis2 $+ $right($5-,$calc($len($5-) - 2)) | halt
  331. n329=}
  332. n330=raw 312:*:altech -a %dis0 $+ *** Server: %dis2 $+ $3 | halt
  333. n331=raw 313:*:altech -a %dis0 $+ ***áIRC operator | halt
  334. n332=raw 317:*:altech -a %dis0 $+ ***áIdle: $+ %dis2 $dur2($3) | halt
  335. n333=raw 319:*:{
  336. n334=  altech -a %dis0 $+ ***áChannels: %dis2 $+ $3-
  337. n335=  checkchans $2 $3-
  338. n336=  halt
  339. n337=}
  340. n338=raw 318:*:{
  341. n339=  dec %donewhois
  342. n340=  if (%donewhois <= 0) .disable #aww
  343. n341=  if ((%lev != $null) && ($wordlevel(%lev) != $null)) { 
  344. n342=    altech -a %dis0 $+ *** Level: %dis2 $+ $wordlevel(%lev)
  345. n343=    unset %lev
  346. n344=  }
  347. n345=  halt
  348. n346=}
  349. n347=#aww end
  350. n348=raw 301:*:if ($2 != $me) altech -s %dis0 $+ Away: $+ %dis2 $3- | halt
  351. n349=raw 305:*:{
  352. n350=  .timer974 off
  353. n351=  if $chan(0) != 0 ame is no longer away
  354. n352=  .disable #page | unset %amsg
  355. n353=  altech -a %dis10 $+ The server recognizes you are no longer away
  356. n354=  speak welcome back
  357. n355=  if (%lagcheck)  { 
  358. n356=    titlebar Little Star 6.1  $me on $server $+ : $+ $port  Lag: waiting for info
  359. n357=    .timer101 0 120 getlag | getlag
  360. n358=  }
  361. n359=  else titlebar Little Star 6.1  $me on $server $+ : $+ $port
  362. n360=  halt
  363. n361=}
  364. n362=raw 306:*:{
  365. n363=  if (($usermodes = $null) || ($usermodes = +)) titlebar Little Star 6.1  $me on $server  AWAY 
  366. n364=  else titlebar Little Star 6.1  $me %modes on $server  AWAY 
  367. n365=  .timer101 off | altech -a %dis10 $+ The server has marked you as being away
  368. n366=  speak you are now marked away. | halt
  369. n367=}
  370. n368=raw 315:*:halt
  371. n369=raw 311:*:{
  372. n370=  ; look ink!  here's some more /whois stuff!
  373. n371=  altech -s %dis0 $+ Whois Information for: %dis2 $+ $2
  374. n372=  set %ady $3 $+ @ $+ $4 | set %lev $level($m( [ *!*@ $+ [ %ady ] ] ))
  375. n373=  altech -s %dis0 $+ Address: %dis2 $+ %ady
  376. n374=  altech -s %dis0 $+ Real Name: $+ %dis2 $right($5-,$calc($len($5-) - 2)) | halt
  377. n375=}
  378. n376=raw 312:*:altech -s %dis0 $+ Server: %dis2 $+ $3 | halt
  379. n377=raw 313:*:altech -s %dis0 $+ IRC operator | halt
  380. n378=raw 314:*:{
  381. n379=  ; if you changed the /whois stuff... change the /whowas stuff to match!
  382. n380=  altech -s %dis0 $+ WhoWas Information for: %dis2 $+ $2
  383. n381=  set %ady $3 $+ @ $+ $4 | set %lev $level($m( [ *!*@ $+ [ %ady ] ] ))
  384. n382=  altech -s %dis0 $+ Address: %dis2 $+ %ady
  385. n383=  altech -s %dis0 $+ Real Name: $+ %dis2 $right($5-,$calc($len($5-) - 2)) | halt
  386. n384=}
  387. n385=raw 315:*:altech -s %dis0 $+ End of WHO list for $2 | halt
  388. n386=raw 317:*:altech -s %dis0 $+ Idle: $+ %dis2 $dur2($3) | halt
  389. n387=raw 319:*:{
  390. n388=  altech -s %dis0 $+ Channels: %dis2 $+ $3-
  391. n389=  checkchans $2 $3-
  392. n390=  halt
  393. n391=}
  394. n392=raw 318:*:if ((%lev != $null) && ($wordlevel(%lev) != $null)) { altech -s %dis0 $+ Level: %dis2 $+ $wordlevel(%lev) | unset %lev } | halt
  395. n393=raw 324:*:{
  396. n394=  if $3 = + set %mode no modes set
  397. n395=  else set %mode $3
  398. n396=  altech -s %dis40 $+ Mode for $2 $+ : %dis41 $+ %mode | halt
  399. n397=}
  400. n398=#getports off
  401. n399=raw 211:*:{
  402. n400=  if $pos($1-,*.) != $null {
  403. n401=    inc %tvports
  404. n402=    addport %dis10 $mid($2,$calc(($pos($2,*.) + 2)), $calc(($pos($2,])) - $calc(($pos($2,*.) + 2))))
  405. n403=    ; that's about as ugly as a line of code can get... go ahead, figure it out :P
  406. n404=  }
  407. n405=  elseif $pos($1-,0.) != $null {
  408. n406=    inc %tvports
  409. n407=    addport %dis10 $mid($2,$calc(($pos($2,0.) + 8)), $calc(($pos($2,])) - $calc(($pos($2,0.) + 8))))
  410. n408=  }
  411. n409=  halt
  412. n410=}
  413. n411=raw 219:*:{
  414. n412=  if %tvports = $null set %tvports 0
  415. n413=  addport %dis10 $+ Total ports available: %tvports
  416. n414=  unset %tvports | .disable #getports | halt
  417. n415=}
  418. n416=#getports end
  419. n417=raw 331:*:echo -s %dis10 $+ No topic is set for $2 | halt
  420. n418=raw 332:*:echo -s %dis1 $+ Topic for $2 $+ : %dis42 $+ $3- | halt
  421. n419=raw 333:*:echo -s %dis1 $+ Topic set by: %dis42 $+ $3 | halt
  422. n420=raw 341:*:echo -s %dis10 $+ $2 has been invited to $3 | halt
  423. n421=raw 352:*:echo -s %dis0 $+ $6 %dis2 $+ ( $+ $3 $+ @ $+ $4 $+ ) %dis0 $+ on $2 | halt
  424. n422=raw 353:*:echo -s %dis40 $+ Names list for $3 $+ : $+ %dis41 $4- | halt
  425. n423=raw 366:*:halt
  426. n424=raw 369:*:halt
  427. n425=raw 375:*:halt
  428. n426=raw 376:*:halt
  429. n427=raw 381:*:echo -a %dis10 $+ You are now an IRC op | if (%opdedicated) openopwindow | halt
  430. n428=raw 401:*:{
  431. n429=  if (%urd) { z | echo 4 $me $2 $+ : no such nick }
  432. n430=  else echo -a %dis0 $+ $2 $+ : no such nick
  433. n431=  .disable #nukeinfoserver #aww | halt
  434. n432=}
  435. n433=raw 402:*:echo -a %dis1 $+ No such nick: %dis42 $+ $2 | .disable #aww #nukeinfoserver | halt
  436. n434=raw 403:*:echo -a %dis1 $+ No such channel: %dis42 $+ $2 | halt
  437. n435=raw 404:*:echo -s %dis10 $+ Cannot send text to channel (it's moderated or you are desynched) | halt
  438. n436=raw 405:*:echo -s %dis10 $+ Cannot join $2 $+ .  You have joined too many channels already! | halt
  439. n437=raw 406:*:echo -a %dis1 $+ There was no such nickname: %dis42 $+ $2 | halt
  440. n438=raw 421:*:echo -s %dis10 $+ Error: " $+ $2 $+ " is an invalid command | halt
  441. n439=raw 432:*:echo -s %dis10 $+ $2 is an erroneous nickname! | halt
  442. n440=raw 433:*:{
  443. n441=  if $2 = ElmerFudd { echo -s %dis10 $+ ElmerFudd nick is already in use. | echo -s %dis10 $+ Cannot perform action kick | .disable #ak | halt }
  444. n442=  if $2 = %tvawaynick { echo -s %dis10 $+ %tvawaynick is already in use, cannot change nicks | unset %tvawaynick | unset %tvsettingaway | setaway %awayreason | halt }
  445. n443=  if (%underscore) {
  446. n444=    set %newnick $2 $+ _
  447. n445=    if ($me != %newnick) {
  448. n446=      if (($len(%newnick) > 9) && (dal.net !isin $server)) {
  449. n447=        altech -s %dis10 $+ Nickname $2 is already in use!
  450. n448=        altech -s %dis10 $+ Cannot try %newnick $+ , it's too long
  451. n449=        halt
  452. n450=      }
  453. n451=      altech -s %dis10 $+ Nickname $2 in use, trying %newnick
  454. n452=      nick %newnick
  455. n453=    }
  456. n454=  }
  457. n455=  elseif ($notimer(930)) { echo 4 -s Nickname $2 is already in use! | whois $2 }
  458. n456=  halt
  459. n457=}
  460. n458=raw 436:*:echo -s %dis10 $+ Acckkkk! Nick Collision! | halt
  461. n459=raw 438:*:echo -s %dis10 $+ $server $+ : $3-
  462. n460=raw 441:*:echo -a %dis10 $+ $2 is not on $3 $+ ! | halt
  463. n461=raw 442:*:echo -a %dis10 $+ You are not on $2 | halt
  464. n462=raw 443:*:echo -a %dis10 $+ $2 is already on $3 $+ ! | halt
  465. n463=raw 461:*:echo -a %dis10 $+  You must specify a limit when setting +l, like +l 50 | halt
  466. n464=raw 464:*:echo -a %dis10 $+ Password Incorrect! | halt
  467. n465=raw 465:*:echo -s %dis10 $+ $2- | halt
  468. n466=raw 467:*:halt
  469. n467=raw 471:*:echo -a %dis10 $+  Cannot join $2 (Channel is full) | halt
  470. n468=raw 472:*:echo -a %dis1 Incorrect Character: %dis42 $+ $2 | halt
  471. n469=raw 473:*:echo -a %dis10 $+ Cannot join $2 $+ , it's invite only! | halt
  472. n470=raw 475:*:echo -a %dis1 $+ $2 $+ : %dis42 $+ channel requires correct key to enter. | halt
  473. n471=raw 474:*:{
  474. n472=  echo -a %dis12 $+ You can't join $2 $+ , you're banned!
  475. n473=  ; did I just check to see what ban masks match my address?
  476. n474=  if (%tviknowimbanned [ $+ [ $2 ] ] ) halt
  477. n475=  ; if not, go ahead and check
  478. n476=  echo -a %dis13 $+ Retrieving info on bans against you...
  479. n477=  set %bc 0 | unset %wbm* | .enable #wbm | mode $2 b | halt
  480. n478=}
  481. n479=raw 478:*:if $me isop $2 onotice $2 The channel ban list is now full! | echo -a %dis10 $+ Ban list for $2 is full! | dh
  482. n480=raw 481:*:echo -a %dis10 $+ You are not an IRC operator! | halt
  483. n481=raw 482:*:{
  484. n482=  if $left($2,1) = $chr(35) echo -a %dis10 $+ You are not a channel op on $2 $+ !
  485. n483=  else echo -a %dis10 $+ $2-
  486. n484=  halt
  487. n485=}
  488. n486=raw 483:*:echo -a %dis10 $+ You can't kill the server! | halt
  489. n487=raw 501:*:echo -s %dis10 $+ Unkown MODE flag! | halt
  490. n488=raw 502:*:echo -s %dis10 $+ You cannot change modes for other users! | halt
  491. n489=#clearbans off
  492. n490=raw 367:*:inc %rtbans | set %rtban [ $+ [ %rtbans ] ] $3 | halt
  493. n491=raw 368:*:{
  494. n492=  .disable #clearbans #wbm
  495. n493=  unset %bans | %i = 0
  496. n494=  :nx
  497. n495=  inc %i
  498. n496=  if (%rtban [ $+ [ %i ] ] = $null) { if $len(%bans) > 0 mode %chan -bbbb %bans | halt }
  499. n497=  set %bans %bans %rtban [ $+ [ %i ] ]
  500. n498=  if %maxmodes // %i { mode %chan -bbbb %bans | %bans = "" }
  501. n499=  goto nx
  502. n500=  :nx
  503. n501=  echo -a %dis10 $+ Removed %rtbans ban(s) on %chan | unset %chan | unset %rtban* | halt
  504. n502=}
  505. n503=#clearbans end
  506. n504=#wbm off
  507. n505=raw 367:*:{
  508. n506=  ; hey, a ban mask that matches my address
  509. n507=  if $3 iswm %myadr { 
  510. n508=    inc %bc
  511. n509=    set %wbmw [ $+ [ %bc ] ] $left($4,$calc($pos($4,!) - 1)) ( $+ $mask($4,3) $+ ) at $asctime($5)
  512. n510=    set %wbmm [ $+ [ %bc ] ] $3
  513. n511=  }
  514. n512=  halt
  515. n513=}
  516. n514=raw 368:*:{
  517. n515=  .disable #wbm #clearbans
  518. n516=  if %bc = 0 { echo -a %dis14 $+ Could not find the ban that matches your hostmask | unset %wb* | halt }
  519. n517=  if %bc = 1 echo -a %dis14 $+ There is 1 ban on $2 against you:
  520. n518=  else echo -a %dis14 $+ There are %bc bans on $2 against you:
  521. n519=  %i = 0
  522. n520=  :nx
  523. n521=  inc %i
  524. n522=  if %wbmm [ $+ [ %i ] ] != $null {
  525. n523=    echo -a %dis13 $+ Ban: %wbmm [ $+ [ %i ] ]
  526. n524=    echo -a %dis13 $+ Set by: %wbmw [ $+ [ %i ] ]
  527. n525=    goto nx
  528. n526=  }
  529. n527=  set %tviknowimbanned [ $+ [ $2 ] ] $true
  530. n528=  unset %wb* | halt
  531. n529=}
  532. n530=#wbm end
  533. n531=raw 367:*:{
  534. n532=  inc %tvnumban [ $+ [ $2 ] ]
  535. n533=  echo -a %dis1 $+ ----- %dis42 $+ $2 Ban %dis1 $+ -----
  536. n534=  echo -a %dis1 $+ Ban: %dis42 $+ $3
  537. n535=  echo -a %dis1 $+ Set by: %dis42 $+ $left($4,$calc($pos($4,!) - 1)) ( $+ $mask($4,3) $+ )
  538. n536=  echo -a %dis1 $+ Set at: %dis42 $+ $asctime($5) | halt
  539. n537=}
  540. n538=raw 368:*:{
  541. n539=  if (%tvnumban [ $+ [ $2 ] ] = $null) echo -a %dis10 $+ There are no bans on $2
  542. n540=  elseif (%tvnumban [ $+ [ $2 ] ] = 1) echo -a %dis10 $+ End of Ban List for $2 (1 ban found)
  543. n541=  else echo -a %dis10 $+ End of Ban List for $2 ( $+ %tvnumban [ $+ [ $2 ] ] bans found)
  544. n542=  unset %tvnumban [ $+ [ $2 ] ]
  545. n543=  halt
  546. n544=}
  547. n545=raw 251:*:echo -a %dis20 $+ Users: $+ %dis21 $2- | halt
  548. n546=raw 252:*:echo -a %dis20 $+ IRC Ops: %dis21 $+ there are $2- | halt
  549. n547=raw 254:*:echo -a %dis20 $+ Channels: %dis21 $+ there are $2- | halt
  550. n548=raw 250:*:echo -a %dis20 $+ $2- | halt
  551. n549=raw 255:*:halt
  552. n550=raw 265:*:echo -a %dis20 $+ Current local users: $+ %dis21 $5 %dis20 $+ (max: $+ %dis21 $7 $+ %dis20 $+ ) | halt
  553. n551=raw 266:*:echo -a %dis20 $+ Current global users: $+ %dis21 $5 %dis20 $+ (max: $+ %dis21 $7 $+ %dis20 $+ ) | halt
  554. n552=raw 302:*:{
  555. n553=  if $2 = $null halt
  556. n554=  else {
  557. n555=    set %nick $left($2,$calc($pos($2,=) - 1))
  558. n556=    if %nick = $me halt
  559. n557=    if (%tvnotify [ $+ [ %nick ] ] != $true) halt
  560. n558=    set %addy $replace( [ $replace($2,=,!) ] ,+,*)
  561. n559=    set %level $wordlevel2($al(%addy))
  562. n560=    if %level = $null altech -a %dis1 $+ *** $left($2,$calc($pos($2,=) - 1)) is on IRC %dis42 $+ ( $+ $mask(%addy,1) $+ ) (unknown address)
  563. n561=    else altech -a %dis1 $+ *** $left($2,$calc($pos($2,=) - 1)) ( $+ %level $+ ) is on IRC %dis42 $+ ( $+ $mask(%addy,1) $+ )
  564. n562=    ; gotta love what adding a/v options did to these once simple /echo commands!
  565. n563=  }
  566. n564=  halt
  567. n565=}
  568.